	cur_time=0
	screen 0,140,200
	cls 1
	font "",20
	objmode 2

	objsize 140,50
	font "",30:button "start", *start:font "",20
	hoge = "  0:00:00"
	mes "TIME"
	font "",30:input hoge,140,30
	ID4hoge=stat:font "",20
	font "",30:button "stop",*l_stop
	font "",30:button "reset",*l_reset
	stop
*start
	while 1
	await 1000
	cur_time++
	tmp=cur_time
	hoge=""+strf("%3d",(tmp/3600))+":"+ strf("%02d",((tmp\3600)/60))+":"+strf("%02d",(tmp\60))
	objprm ID4hoge,hoge
	wend
	stop
*l_stop
	stop
*l_reset
	cur_time=0
	tmp=cur_time
	hoge=""+strf("%3d",(tmp/3600))+":"+ strf("%02d",((tmp\3600)/60))+":"+strf("%02d",(tmp\60))
	objprm ID4hoge,hoge
	stop